home *** CD-ROM | disk | FTP | other *** search
/ Plug-In Power Pack for Netscape Communicator / Plug-In Power Pack for Netscape Communicator.iso / plugins / dataviews / activex / vb / viewform.frm (.txt) < prev   
Encoding:
Visual Basic Form  |  1997-07-11  |  6.1 KB  |  164 lines
  1. VERSION 5.00
  2. Object = "{DFB7B7B0-965F-11D0-B67A-0000C0575FD5}#1.0#0"; "DVACTI~1.OCX"
  3. Begin VB.Form Form1 
  4.    Caption         =   "Form1"
  5.    ClientHeight    =   8070
  6.    ClientLeft      =   990
  7.    ClientTop       =   1230
  8.    ClientWidth     =   8745
  9.    LinkTopic       =   "Form1"
  10.    PaletteMode     =   1  'UseZOrder
  11.    ScaleHeight     =   8070
  12.    ScaleWidth      =   8745
  13.    Begin VB.Timer Timer1 
  14.       Interval        =   200
  15.       Left            =   6600
  16.       Top             =   7320
  17.    End
  18.    Begin VB.CommandButton Command1 
  19.       Caption         =   "Exit"
  20.       Height          =   495
  21.       Left            =   7320
  22.       TabIndex        =   1
  23.       Top             =   7320
  24.       Width           =   1095
  25.    End
  26.    Begin VB.PictureBox Dvocx1 
  27.       Height          =   6855
  28.       Left            =   240
  29.       ScaleHeight     =   6795
  30.       ScaleWidth      =   8115
  31.       TabIndex        =   0
  32.       Top             =   240
  33.       Width           =   8175
  34.       Begin DVACTIVELib.Dvactive Dvactive1 
  35.          Height          =   6855
  36.          Left            =   0
  37.          TabIndex        =   2
  38.          Top             =   0
  39.          Width           =   8175
  40.          _Version        =   65536
  41.          _ExtentX        =   14420
  42.          _ExtentY        =   12091
  43.          _StockProps     =   32
  44.          AutoUpdate      =   0   'False
  45.          ViewFile        =   "V:\ActiveX\VB\rtap.v"
  46.          DVPathDirs      =   "%DVHOME%\ActiveX\Vb"
  47.       End
  48.    End
  49. Attribute VB_Name = "Form1"
  50. Attribute VB_GlobalNameSpace = False
  51. Attribute VB_Creatable = False
  52. Attribute VB_PredeclaredId = True
  53. Attribute VB_Exposed = False
  54. 'This is where the globals are defined
  55. Dim DsvCollect As Dvactive
  56. Public counter As Integer
  57. Private Sub Command1_Click()
  58.     End
  59. End Sub
  60. Private Sub Dvactive1_AfterViewLoaded()
  61.     Set DsvCollect = Dvactive1
  62.     DsvCollect.Dsvars.AddAll
  63. End Sub
  64. Private Sub Dvactive1_BeforeDrawNext()
  65.     Dim I As Integer
  66.     Dim cookies
  67.     Dim tank_status, tank_level
  68.     Dim valve_position, valve_status
  69.     Dim pump, pump_status
  70.     Dim temp, coolant, compress
  71.     Dim dsvItem
  72.     counter = counter + 1
  73.     I = counter Mod 100
  74.     cookies = "cookies/count"
  75.     Set dsvItem = DsvCollect.Dsvars.Item(cookies)
  76.     dsvItem.Value = I
  77.     tank_level = "tanks/tank 1 level"
  78.     Set dsvItem = DsvCollect.Dsvars.Item(tank_level)
  79.     dsvItem.Value = Abs(Sin(I / 24)) * 100
  80.     tank_status = "tanks/tank 1 status"
  81.     Set dsvItem = DsvCollect.Dsvars.Item(tank_status)
  82.     dsvItem.Value = Abs(Sin(I / 24)) * 5
  83.     tank_level = "tanks/tank 2 level"
  84.     Set dsvItem = DsvCollect.Dsvars.Item(tank_level)
  85.     dsvItem.Value = Abs(Sin(I / 10)) * 100
  86.     tank_status = "tanks/tank 2 status"
  87.     Set dsvItem = DsvCollect.Dsvars.Item(tank_status)
  88.     dsvItem.Value = Abs(Sin(I / 10)) * 5
  89.     tank_level = "tanks/tank 3 level"
  90.     Set dsvItem = DsvCollect.Dsvars.Item(tank_level)
  91.     dsvItem.Value = Abs(Sin(I / 34)) * 100
  92.     tank_status = "tanks/tank 3 status"
  93.     Set dsvItem = DsvCollect.Dsvars.Item(tank_status)
  94.     dsvItem.Value = Abs(Sin(I / 36)) * 5
  95.     valve_position = "valves/valve 1 position"
  96.     Set dsvItem = DsvCollect.Dsvars.Item(valve_position)
  97.     dsvItem.Value = Abs(Sin(I / 24)) * 100
  98.     valve_status = "valves/valve 1 status"
  99.     Set dsvItem = DsvCollect.Dsvars.Item(valve_status)
  100.     dsvItem.Value = Abs(Sin(I / 10)) * 5
  101.     valve_position = "valves/valve 2 position"
  102.     Set dsvItem = DsvCollect.Dsvars.Item(valve_position)
  103.     dsvItem.Value = Abs(Sin(I / 10)) * 100
  104.     valve_status = "valves/valve 2 status"
  105.     Set dsvItem = DsvCollect.Dsvars.Item(valve_status)
  106.     dsvItem.Value = Abs(Sin(I / 36)) * 5
  107.     valve_position = "valves/valve 3 position"
  108.     Set dsvItem = DsvCollect.Dsvars.Item(valve_position)
  109.     dsvItem.Value = Abs(Sin(I / 34)) * 100
  110.     valve_status = "valves/valve 3 status"
  111.     Set dsvItem = DsvCollect.Dsvars.Item(valve_status)
  112.     dsvItem.Value = Abs(Sin(I / 24)) * 5
  113.     pump = "pumps/pump 1 start"
  114.     Set dsvItem = DsvCollect.Dsvars.Item(pump)
  115.     dsvItem.Value = Abs(Sin(I / 24)) * 100
  116.     pump_status = "pumps/pump 1 status"
  117.     Set dsvItem = DsvCollect.Dsvars.Item(pump_status)
  118.     dsvItem.Value = Abs(Sin(I / 24)) * 5
  119.         
  120.     pump = "pumps/pump 2 start"
  121.     Set dsvItem = DsvCollect.Dsvars.Item(pump)
  122.     dsvItem.Value = Abs(Sin(I / 10)) * 100
  123.     pump_status = "pumps/pump 2 status"
  124.     Set dsvItem = DsvCollect.Dsvars.Item(pump_status)
  125.     dsvItem.Value = Abs(Sin(I / 10)) * 5
  126.     pump = "pumps/pump 3 start"
  127.     Set dsvItem = DsvCollect.Dsvars.Item(pump)
  128.     dsvItem.Value = Abs(Sin(I / 34)) * 100
  129.     pump_status = "pumps/pump 3 status"
  130.     Set dsvItem = DsvCollect.Dsvars.Item(pump_status)
  131.     dsvItem.Value = Abs(Sin(I / 36)) * 5
  132.     temp = "temperature/exhaust 1 temp"
  133.     Set dsvItem = DsvCollect.Dsvars.Item(temp)
  134.     dsvItem.Value = Abs(Sin(I)) * 50
  135.     temp = "temperature/exhaust 2 temp"
  136.     Set dsvItem = DsvCollect.Dsvars.Item(temp)
  137.     dsvItem.Value = Abs(Sin(I / 2)) * 100
  138.     temp = "temperature/exhaust 3 temp"
  139.     Set dsvItem = DsvCollect.Dsvars.Item(temp)
  140.     dsvItem.Value = Abs(Sin(I / 10)) * 50
  141.     temp = "temperature/exhaust 4 temp"
  142.     Set dsvItem = DsvCollect.Dsvars.Item(temp)
  143.     dsvItem.Value = Abs(Sin(I / 20)) * 100
  144.         
  145.     compress = "temperature/compressr 1 inlet T"
  146.     Set dsvItem = DsvCollect.Dsvars.Item(compress)
  147.     dsvItem.Value = Abs(Sin(I / 20)) * 100
  148.     compress = "temperature/compressr 2 inlet T"
  149.     Set dsvItem = DsvCollect.Dsvars.Item(compress)
  150.     dsvItem.Value = Abs(Sin(I / 10)) * 50
  151.     compress = "temperature/compressr 3 inlet T"
  152.     Set dsvItem = DsvCollect.Dsvars.Item(compress)
  153.     dsvItem.Value = Abs(Sin(I / 2)) * 100
  154.     coolant = "coolant/coolant volume"
  155.     Set dsvItem = DsvCollect.Dsvars.Item(coolant)
  156.     dsvItem.Value = Abs(Sin(I / 24)) * 100
  157. End Sub
  158. Private Sub Form_Activate()
  159.     Timer1.Enabled = True
  160. End Sub
  161. Private Sub Timer1_Timer()
  162.     Dvactive1.Update
  163. End Sub
  164.